home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / shared.dir / 07012.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  509 b   |  26 lines
  1. global gSIXDebug
  2.  
  3. on SIDebugStart
  4.   openXLib("commport.dll")
  5.   set gSIXDebug to CommPort(mnew, "COM2", 128, 128)
  6.   if objectp(gSIXDebug) then
  7.     gSIXDebug(mSetParity, "None")
  8.     gSIXDebug(mSetStopBits, 1)
  9.     gSIXDebug(mSetDataBits, 8)
  10.   end if
  11. end
  12.  
  13. on SIDebugStop
  14.   if objectp(gSIXDebug) then
  15.     gSIXDebug(mdispose)
  16.   end if
  17.   closeXLib("commport.dll")
  18. end
  19.  
  20. on SIDebugPut aStr
  21.   if objectp(gSIXDebug) then
  22.     gSIXDebug(mWriteString, RETURN & numToChar(10) & aStr)
  23.     gSIXDebug(mWriteFlush)
  24.   end if
  25. end
  26.